<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.0</name>
<id>-1</id>
<cardCount>5</cardCount>
<cardID>3063</cardID>
<listID>4649</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>736</width>
<height>616</height>
</cardSize>
<script>on openStackglobal ChildsName, OrigBlindTypingSetting-- Play greetingput "ChildsName" into ChildsNameplay "Hey"play ChildsNameplay "HowAreYou?"-- set editStack to true so dhk will turn off debuggingput InitEditToFalse into editStack -- InitEditToFalse is NOT used,just documentationedit-- Set Window for normal sized screenget the screenRectput item 1 of it into ScreenLeftput item 2 of it into ScreenTopput item 3 of it into ScreenRightput item 4 of it into ScreenBottomset rect of card window to 0,18, ScreenRight, ScreenBottom-- Set to fast speech modeif hilight of bg button "FAST" is false thenclick at location of bg button "FAST"end if-- Enable blindTypingget blindTypingput it into OrigBlindTypingSettingset blindTyping to truehide scroll windowend openStackon closeStackglobal OrigBlindTypingSettingplay "Goodbye"set blindTyping to OrigBlindTypingSettingend closeStackon editglobal editStack-- Toggles between Editable and KidProof Modesif editStack is false then-- Editable Mode: ALLOW CHANGESset userlevel to 5reset menubarshow menuBarshow tool window at 590, 300set cantModify of this stack to falseput true into editStackelse-- KidProof Mode: DO NOT ALLOW CHANGEShide menuBarhide tool windowset userlevel to 1set cantModify of this stack to true-- delete these just in case the kid gets the menu backdelete menu "File"delete menu "Edit"delete menuItem "Home" of menu "Go"delete menuItem "Help" of menu "Go"delete menuItem "Find..." of menu "Go"delete menuItem "Message" of menu "Go"delete menuItem "Scroll" of menu "Go"put false into editStackend ifend editon Quit-- play "Good Bye"-- wait until the sound is "done"domenu "Quit Hypercard"end Quit------------------------------------------------------------------ Says any number from 0 to 999, BUT the sounds available in ---- this stack only support 0-199 ------------------------------------------------------------------on sayNumber Numberif (Number = 0) thenplay Numberelseif Number >= 100 then-- HUNDREDSplay ((Number div 100)*100)put (Number mod 100) into Numberend ifif Number >= 20 then-- TENS (19-99)play ((Number div 10)*10)put (Number mod 10) into Numberend ifif (19 >= Number) and (Number >= 10) then-- TEENSplay Numberend ifif (9 >= Number) and (Number >= 1) then-- ONESplay Numberend ifend ifend sayNumberon speak string-- This script plays the individual sounds named in a string-- For example, "Hey Christopher" would play those two sounds-- in sequencerepeat with x = 1 to the number of words in stringplay word x of stringend repeatend speakon SayEachChar stringglobal delay-- This script playes each character in 'string'repeat with i = 1 to the length of stringget char i of stringif it >= "a" thenset highlight of button (CharToNum(it)-96) to trueelse if it >= "A" thenset highlight of button (CharToNum(it)-64) to trueelseset highlight of button (it+1) to trueend ifsay itwait until the sound is "done"DialIt itwait delay secondsif it >= "a" thenset highlight of button (CharToNum(it)-96) to falseelse if it >= "A" thenset highlight of button (CharToNum(it)-64) to falseelseset highlight of button (it+1) to falseend ifend repeatend SayEachCharon say chglobal delayif ch = " " thenplay "Silence" relsedo "play " & chplay "silence" rsend ifend sayon DialIt stringglobal UseTones-- This script "dials" the number passed to itif (UseTones is true) thendial stringend ifend DialIt</script>
